(xml-parse-tag): Allow spaces between / and >.

diff --git a/lisp/xml.el b/lisp/xml.el
index a495721330fc54279706a98f72367d3214d2c113..cd992502535acb3ad7856e72cf243ba930641bc9 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -219,7 +219,7 @@ Returns one of:
           pos)
 
       ;; is this an empty element ?
-      (if (looking-at "/>")
+      (if (looking-at "/[ \t\n]*>")
          (progn
            (forward-char 2)
            (nreverse (cons '("") children)))